home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Text / Extension Dev. Kit / Extension Sources / HelloWorld.p < prev    next >
Encoding:
Text File  |  1993-02-24  |  464 b   |  30 lines  |  [TEXT/PJMM]
  1. unit HelloWorld;
  2. interface
  3.     uses
  4.         ExternalInterface;
  5.  
  6.     procedure Main (callbacks: ExternalCallbackPtr; w: WindowPtr);
  7.  
  8. implementation
  9.  
  10.     procedure Main (callbacks: ExternalCallbackPtr; w: WindowPtr);
  11.         var
  12.             h: Handle;
  13.  
  14.     begin
  15.         RememberA4;
  16.         SetUpA4;
  17.  
  18.         PrepareCallbacks(callbacks);
  19.  
  20.         w := NewDocument;
  21.         if (w <> nil) then
  22.             begin
  23.                 h := AllocateMemory(0, FALSE);
  24.                 SetIText(h, 'Hello World');
  25.                 SetWindowContents(w, h);
  26.             end;
  27.  
  28.         RestoreA4;
  29.     end;
  30. end.